home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / test141 < prev    next >
Text File  |  2007-02-28  |  798b  |  36 lines
  1. 0030 DIM COLOUR$(4) OF 10, NAME$(13) OF 10
  2. 0040 DIM CARD$ OF 20, HAND$(6) OF 20
  3. 0050 DIM DRAWN$ OF 300
  4. 0060 //
  5. 0070 COLOUR$(1):="DIAMONDS"
  6. 0080 COLOUR$(2):="CLUBS"
  7. 0090 COLOUR$(3):="SPADES"
  8. 0100 COLOUR$(4):="HEARTS"
  9. 0110 //
  10. 0120 FOR I:=1 TO 13 DO
  11. 0130 READ NAME$(I)
  12. 0140 ENDFOR I
  13. 0150 DATA "ACE","TWO","THREE","FOUR"
  14. 0160 DATA "FIVE","SIX","SEVEN","EIGHT"
  15. 0170 DATA "NINE","TEN","JACK","QUEEN","KING"
  16. 0180 //
  17. 0190 FOR DRAW:=1 TO 6 DO
  18. 0200 FINDCARD
  19. 0210 HAND$(DRAW):=CARD$
  20. 0220 ENDFOR DRAW
  21. 0230 DISPLAY
  22. 0240 //
  23. 0250 PROC FINDCARD 
  24. 0260 REPEAT 
  25. 0270 CARD$:=NAME$(RND(1,13))
  26. 0280 CARD$:=CARD$+" OF "+COLOUR$(RND(1,4))
  27. 0290 UNTIL NOT CARD$ IN DRAWN$
  28. 0300 DRAWN$:=DRAWN$+CARD$
  29. 0310 ENDPROC FINDCARD
  30. 0320 //
  31. 0330 PROC DISPLAY 
  32. 0340 FOR I:=1 TO 6 DO
  33. 0350 PRINT HAND$(I)
  34. 0360 ENDFOR I
  35. 0370 ENDPROC DISPLAY
  36.